home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / Spider / DRAW10.ADA < prev    next >
Text File  |  1994-01-11  |  206b  |  19 lines
  1. WITH Spider; USE Spider;
  2. PROCEDURE Drawing10 IS
  3. BEGIN 
  4. Start;
  5. Red;
  6. WHILE NOT AtWall LOOP
  7.      Step;
  8. END LOOP;
  9. Black;
  10. Turn;
  11. Step;
  12. Turn;
  13. Green;
  14. WHILE NOT AtWall LOOP
  15.      Step;
  16. END LOOP;
  17. Quit;
  18. END Drawing10;
  19.